home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 9
/
Tiger_Disk_009_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
learning english
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
144 lines
1 rem *** learning english --pd!!-- ***
2 :
3 :
5 poke 53281,0:poke 53280,0:print""
7 printchr$(14);chr$(8)
10 print"[147]":dime$(99),d$(99)
20 print"[214]okabel-[212]raining"
25 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30 print"[215]aehle aus:"
35 print"[163][163][163][163][163][163][163][163][163][163][163]"
40 print"(1) [197]ingeben"
50 print"(2) [211]peichern"
60 print"(3) [197]inlesen"
70 print"(4) [213]eben"
80 print"(5) [206]achschlagen"
85 print"(6) [193]uflisten"
90 print"(7) [197]nde"
100 getw$:ifw$=""then100
110 ifw$="7"then150
120 ifw$<"1"orw$>"6"then100
130 onval(w$)gosub1000,2000,3000,4000,6000,8000
140 print"[147]":goto20
150 print"[147]";:end
1000 rem eingabe oder woerter
1010 print"[147]":n=0
1020 print"[204]etztes [215]oerterpaar: * * ":print"
1030 [133]"valnglisch ";e$(n):[153]
1040 [133]"str$eutsch ";d$(n)
1050 [139]e$(n)[179][177]"*"[167]n[178]n[170]1:[153]"load":[137]1020
1060 n[178]n[171]1
1070 [142]
2000 [143] woerter speichern
2010 [153]"load":[133]"(NULL)ennwort ";a$
2020 [159]1,8,1,a$
2030 [152]1,n
2040 [129]i[178]0[164]n
2050 [152]1,e$(i);[199](13)
2055 [152]1,d$(i);[199](13)
2060 [130]i
2070 [160]1
2080 [142]
3000 [143] einlesen der woerter
3010 [153]"load":[133]"(NULL)ennwort ";a$
3020 [159]1,8,0,a$
3030 [132]1,n
3040 [129]i[178]0[164]n
3050 [132]1,e$(i)
3055 [132]1,d$(i)
3060 [130]i
3070 [160]1
3080 [142]
4000 [143] ueben
4010 [153]"load(1) valnglisch > str$eutsch"
4020 [153]" oder"
4030 [153]"(2) str$eutsch > valnglisch"
4040 [153]" oder"
4050 [153]"(m) (NULL)enue"
4060 [161]w$:[139]w$[178]""[167]4060
4070 [139]w$[178]"m"[167]5000
4080 [139]w$[179][177]"1"[175]w$[179][177]"2"[167]4060
4090 [145][197](w$)[141]10000,20000
5000 [142]
6000 [143] nachschlagen
6010 [153]"load(1) valnglisch > str$eutsch"
6020 [153]" oder"
6030 [153]"(2) str$eutsch > valnglisch"
6040 [153]" oder"
6050 [153]"(m) (NULL)enue"
6060 [161]w$:[139]w$[178]""[167]6060
6070 [139]w$[178]"m"[167]7000
6080 [139]w$[179][177]"1"[175]w$[179][177]"2"[167]6060
6090 [145][197](w$)[141]15000,25000
7000 [142]
8000 [153]"load"
8010 [153]"(NULL)okabel-(NULL)iste:";a$
8015 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
8020 [129]i[178]0[164]n[169]6:[129]j[178]0[164]5
8030 [153]e$(j[170]i),d$(j[170]i)
8040 [153]
8050 [130]j
8060 [153]"str$ruecke eine (NULL)aste!"
8070 [161]w$:[139]w$[178]""[167]8070
8075 [153]"load"
8080 [130]i
8090 [142]
10000 [143] upro ueben
10010 [153]"load(NULL)ie heisst das deutsche (NULL)ort ?"
10020 j[178][181]([187](ti)[172]n[170].5)
10030 [153]"";e$(j);"?"
10040 [153]"":[133]d$
10050 [153]""
10060 [129]k[178]0[164]n
10070 [139]e$(k)[178]e$(j)[175]d$[178]d$(j)[167][153]"(NULL)ichtig!!!":[137]10130
10080 [130]k
10090 [153]"";e$(j);"wait heisst auf deutsch "
10100 [129]k[178]0[164]n
10110 [139]e$(k)[178]e$(j)[167][153]:[153]"";d$(k);"wait"
10120 [130]k
10130 [153]"str$ruecke eine (NULL)aste oder m!"
10140 [161]w$:[139]w$[178]""[167]10140
10150 [139]w$[178]"m"[167]10170
10160 [137]10010
10170 [142]
15000 [143] upro nachschlagen
15010 [153]"loadvalnglisches (NULL)ort?"
15015 [133]e$
15020 [129]k[178]0[164]n
15030 [139]e$(k)[178]e$[167][153]:[153]"";d$(k);"wait"
15040 [130]k
15050 [153]"str$ruecke eine (NULL)aste oder m!"
15060 [161]w$:[139]w$[178]""[167]15060
15070 [139]w$[178]"m"[167]15090
15080 [137]15010
15090 [142]
20000 [143] upro ueben
20010 [153]"load(NULL)ie heisst das englische (NULL)ort ?"
20020 j[178][181]([187](ti)[172]n[170].5)
20030 [153]"";d$(j);"?"
20040 [153]"":[133]e$
20050 [153]""
20060 [129]k[178]0[164]n
20070 [139]d$(k)[178]d$(j)[175]e$[178]e$(j)[167][153]"(NULL)ichtig!!!":[137]20130
20080 [130]k
20090 [153]"";d$(j);"wait heisst auf englisch:"
20100 [129]k[178]0[164]n
20110 [139]d$(k)[178]d$(j)[167][153]:[153]"";e$(k);"wait"
20120 [130]k
20130 [153]"str$ruecke eine (NULL)aste oder m!"
20140 [161]w$:[139]w$[178]""[167]20140
20150 [139]w$[178]"m"[167]20170
20160 [137]20010
20170 [142]
25000 [143] upro nachschlagen
25010 [153]"loadstr$eutsches (NULL)ort"
25015 [133] d$
25020 [129]k[178]0[164]n
25030 [139]d$(k)[178]d$[167] [153]:[153]"";e$(k);"wait"
25040 [130]k
25050 [153]"str$ruecke eine (NULL)aste oder m!"
25060 [161]w$:[139]w$[178]""[167]25060
25070 [139]w$[178]"m"[167]25090
25080 [137]25010
25090 [142]